home *** CD-ROM | disk | FTP | other *** search
/ Chip: Hang es video / CHIP_ZENESZERKESZTO_2005.ISO / audio_3 / visual / robotfunk / setup.exe / {app} / main.dxr / ui_379.ls < prev    next >
Encoding:
Text File  |  2003-11-19  |  1.0 KB  |  35 lines
  1. on showperc p
  2.   member("slott").image = member("percslot").image.duplicate()
  3.   m = member("slott").image
  4.   omtrek = 224
  5.   perc = omtrek * p
  6.   q = 1
  7.   if perc >= 64 then
  8.     q = 2
  9.   end if
  10.   if perc >= 112 then
  11.     q = 3
  12.   end if
  13.   if perc >= 176 then
  14.     q = 4
  15.   end if
  16.   put perc - 64 - 48
  17.   put q
  18.   case q of
  19.     1:
  20.       m.draw(0, 0, perc, 0, [#lineSize: 2, #color: rgb(0, 0, 0)])
  21.     2:
  22.       m.draw(0, 0, 64, 0, [#lineSize: 2, #color: rgb(0, 0, 0)])
  23.       m.draw(62, 0, 62, perc - 63, [#lineSize: 2, #color: rgb(0, 0, 0)])
  24.     3:
  25.       m.draw(0, 0, 64, 0, [#lineSize: 2, #color: rgb(0, 0, 0)])
  26.       m.draw(62, 0, 62, 48, [#lineSize: 2, #color: rgb(0, 0, 0)])
  27.       m.draw(64, 46, 64 - (perc - (48 + 64)), 46, [#lineSize: 2, #color: rgb(0, 0, 0)])
  28.     4:
  29.       m.draw(0, 0, 64, 0, [#lineSize: 2, #color: rgb(0, 0, 0)])
  30.       m.draw(62, 0, 62, 48, [#lineSize: 2, #color: rgb(0, 0, 0)])
  31.       m.draw(64, 46, 0, 46, [#lineSize: 2, #color: rgb(0, 0, 0)])
  32.       m.draw(0, 48, 0, 47 - (perc - (48 + 64 + 64)), [#lineSize: 2, #color: rgb(0, 0, 0)])
  33.   end case
  34. end
  35.